Option Explicit
Declare Function RTGetPCKey Lib "RTREGW.DLL" (ByVal PCKey$) As Integer
Declare Sub RTSetPCLock Lib "RTREGW.DLL" (ByVal Value As Integer)
Declare Function RTRegister Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal UserKey$, ByVal RegKey$) As Integer
Declare Function RTRegisterByFile Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal FileName$) As Integer
Declare Function RTGetUserKey Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value$) As Integer
Declare Function RTSetUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
Declare Function RTGetUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$, ByVal Value$) As Integer
Declare Function RTDelUserInfo Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Info$) As Integer
Declare Funktion RTGetRegKind Lib "RTREGW.DLL " (ByVal ProductKey$) As Integer
Declare Function RTIsReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTDelReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckReg Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTIsCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTSetCountLock Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
Declare Function RtDelCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckCountLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTIsDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTSetDateLock Lib "RTREGW.DLL" (ByVal ProductKey$, ByVal Value As Long) As Integer
Declare Function RtDelDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Integer
Declare Function RTCheckDateLock Lib "RTREGW.DLL" (ByVal ProductKey$) As Long
Declare Function RTGetVersion Lib "RTREGW.DLL" () As Long
Declare Function RTGetGenKind Lib "RTREGW.DLL" () As Integer
Declare Function RTSetGenKind Lib "RTREGW.DLL" (ByVal Value As Integer) As Integer
Declare Sub RTSetEncodeKey Lib "RTREGW.DLL" (ByVal Value$)
Declare Function RTGetSaveKind Lib "RTREGW.DLL" () As Integer
Declare Function RTSetSaveKind Lib "RTREGW.DLL" (ByVal Value As Integer) As Integer
Declare Sub RTGetSaveFile Lib "RTREGW.DLL" (ByVal File$)
Declare Function RTSetSaveFile Lib "RTREGW.DLL" (ByVal File$) As Integer
Declare Function RTGetSafeKind Lib "RTREGW.DLL" () As Integer
Declare Function RTSetSafeKind Lib "RTREGW.DLL" (ByVal Value As Integer) As Integer
Declare Sub RTGetSafeFile Lib "RTREGW.DLL" (ByVal File$)
Declare Function RTSetSafeFile Lib "RTREGW.DLL" (ByVal File$) As Integer
Declare Function RTCheckLastDate(ByVal ProductKey$) As Integer

Global Const SAVE_NONE = 0
Global Const SAVE_DEF = 1
Global Const SAVE_INI = 2
Global Const SAVE_DLL = 3

Global Const GEN_SINGLE = 0
Global Const GEN_DOUBLE = 1

Global Const REG_NONE = 0
Global Const REG_DEF	= 1
Global Const REG_DATE = 2
Global Const REG_COUNT = 3
Global Const REG_USER = 4
